home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
os2
/
zoc205.zip
/
INSTALL.FIL
/
SCRIPT
/
RXSAMPLE
/
MANUAL
/
IF2.RX
< prev
next >
Wrap
Text File
|
1994-10-08
|
692b
|
36 lines
/* REXX sample about decisions */
'TIMEOUT 60'
/* Wait for 'Name?' - check for success and report error */
'WAIT "Name?"'
IF RC=0 THEN
DO /* received 'Name?' */
'SEND "Joe User^M"'
END
ELSE
DO /* Ouch, 'Name?' was not received */
'WRITELN "ERROR (Name)!!"'
'HANGUP'
SIGNAL GetOut /* this command jumps to the end */
END
/* Wait for 'Password?' - check for success and report error */
'WAIT "Password?"'
IF RC=0 THEN
DO /* received 'Password?' */
'SEND "mypassword^M"'
END
ELSE
DO /* Ouch, 'Password?' was not received */
'WRITELN "ERROR (Password)!!"'
'HANGUP'
END
GetOut: /* this is the target for the SIGNAL command */